Introduction

The present work is a continuation of https://rpubs.com/manoelf/416750 Here we are going to create new questions and answer it through the data analysis. The data about deputies expenses is located right here https://canvas.instructure.com/courses/1402758/files/67618888/download?verifier=ibyou5PYo9aaFgRaefc0keYkHhkQ2EqIArdmI1bq&wrap=1 and more informations about you can find in http://www2.camara.leg.br/transparencia/acesso-a-informacao/copy_of_perguntas-frequentes/cota-para-o-exercicio-da-atividade-parlamentar

/TODO: Should talk here about the data, what does mean the variables and so on.

Set Up

For our analisys we need the folowing packages to be installed.

#install.packages("ggplot2")
#install.packages("dplyr")
#install.packages("tidyr")
#install.packages("scales")
#install.packages("plotly")

Once packages installed we load it.

library(ggplot2)
library(dplyr)
library(tidyr)
library(scales)
library(plotly)

Setting up the workspace.

Now we gonna load the main data, which is about the deputies expenses.

It is important to know how much money is expende along the months, for that reason we will se it through the graphic.

First we need to create two new column which represents the year of the expense and its month

expenses_by_month <- data %>%
  mutate(yar = substr(dataEmissao, 1, 4)) %>%
  mutate(month = substr(dataEmissao, 6, 7))
Error in data %>% mutate(yar = substr(dataEmissao, 1, 4)) %>% mutate(month = substr(dataEmissao,  : 
  não foi possível encontrar a função "%>%<-"

Once the column are created we will agroup and sum all values expend in each month.

expenses_by_month <- data %>%
  group_by(year, month) %>%
  filter(valorLíquido >= 0) %>%
  summarise(expense = sum(valorLíquido))
Error in grouped_df_impl(data, unname(vars), drop) : 
  Column `year` is unknown

Lets see the expense in a graphic.

LS0tCnRpdGxlOiAiRGVwdXRpZXMgRXhwZW5kaXR1cmUgQW5hbHlzaXM6IE15IFF1ZXN0aW9ucyIKYXV0aG9yOiAiSm9zZSBNYW5vZWwgRmVycmVpcmEiCm91dHB1dDogaHRtbF9ub3RlYm9vawoKLS0tCgojSW50cm9kdWN0aW9uCgo8cD4KICBUaGUgcHJlc2VudCB3b3JrIGlzIGEgY29udGludWF0aW9uIG9mIGh0dHBzOi8vcnB1YnMuY29tL21hbm9lbGYvNDE2NzUwCiAgSGVyZSB3ZSBhcmUgZ29pbmcgdG8gY3JlYXRlIG5ldyBxdWVzdGlvbnMgYW5kIGFuc3dlciBpdCB0aHJvdWdoIHRoZSBkYXRhIGFuYWx5c2lzLiBUaGUgZGF0YSBhYm91dCBkZXB1dGllcyBleHBlbnNlcyBpcyBsb2NhdGVkIHJpZ2h0IGhlcmUgaHR0cHM6Ly9jYW52YXMuaW5zdHJ1Y3R1cmUuY29tL2NvdXJzZXMvMTQwMjc1OC9maWxlcy82NzYxODg4OC9kb3dubG9hZD92ZXJpZmllcj1pYnlvdTVQWW85YWFGZ1JhZWZjMGtlWWtIaGtRMkVxSUFyZG1JMWJxJndyYXA9MSBhbmQgbW9yZSBpbmZvcm1hdGlvbnMgYWJvdXQgeW91IGNhbiBmaW5kIGluICBodHRwOi8vd3d3Mi5jYW1hcmEubGVnLmJyL3RyYW5zcGFyZW5jaWEvYWNlc3NvLWEtaW5mb3JtYWNhby9jb3B5X29mX3Blcmd1bnRhcy1mcmVxdWVudGVzL2NvdGEtcGFyYS1vLWV4ZXJjaWNpby1kYS1hdGl2aWRhZGUtcGFybGFtZW50YXIKPC9wPgoKL1RPRE86IFNob3VsZCB0YWxrIGhlcmUgYWJvdXQgdGhlIGRhdGEsIHdoYXQgZG9lcyBtZWFuIHRoZSB2YXJpYWJsZXMgYW5kIHNvIG9uLgoKI1NldCBVcAoKRm9yIG91ciBhbmFsaXN5cyB3ZSBuZWVkIHRoZSBmb2xvd2luZyBwYWNrYWdlcyB0byBiZSBpbnN0YWxsZWQuCgpgYGB7cn0KI2luc3RhbGwucGFja2FnZXMoImdncGxvdDIiKQojaW5zdGFsbC5wYWNrYWdlcygiZHBseXIiKQojaW5zdGFsbC5wYWNrYWdlcygidGlkeXIiKQojaW5zdGFsbC5wYWNrYWdlcygic2NhbGVzIikKI2luc3RhbGwucGFja2FnZXMoInBsb3RseSIpCmBgYAoKT25jZSBwYWNrYWdlcyBpbnN0YWxsZWQgd2UgbG9hZCBpdC4KCmBgYHtyfQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkodGlkeXIpCmxpYnJhcnkoc2NhbGVzKQpsaWJyYXJ5KHBsb3RseSkKYGBgCgpTZXR0aW5nIHVwIHRoZSB3b3Jrc3BhY2UuCgpgYGB7cn0Kc2V0d2QoIn4vZ2l0L2RhdGEtYW5hbHlzaXMvbGFiMDEtMi8iKQpgYGAKCk5vdyB3ZSBnb25uYSBsb2FkIHRoZSBtYWluIGRhdGEsIHdoaWNoIGlzIGFib3V0IHRoZSBkZXB1dGllcyBleHBlbnNlcy4KCmBgYHtyfQpkYXRhIDwtIHJlYWQuY3N2KCgiL2hvbWUvam9zZW1zZi9Eb3dubG9hZHMvZGFkb3NDRUFQLmNzdiIpKQpgYGAKCiMjIEl0IGlzIGltcG9ydGFudCB0byBrbm93IGhvdyBtdWNoIG1vbmV5IGlzIGV4cGVuZGUgYWxvbmcgdGhlIG1vbnRocywgZm9yIHRoYXQgcmVhc29uIHdlIHdpbGwgc2UgaXQgdGhyb3VnaCB0aGUgZ3JhcGhpYy4KCkZpcnN0IHdlIG5lZWQgdG8gY3JlYXRlIHR3byBuZXcgY29sdW1uIHdoaWNoIHJlcHJlc2VudHMgdGhlIHllYXIgb2YgdGhlIGV4cGVuc2UgYW5kIGl0cyBtb250aAoKYGBge3J9CmV4cGVuc2VzX2J5X21vbnRoIDwtIGRhdGEgJT4lCiAgbXV0YXRlKHllYXIgPSBzdWJzdHIoZGF0YUVtaXNzYW8sIDEsIDQpKSAlPiUKICBtdXRhdGUobW9udGggPSBzdWJzdHIoZGF0YUVtaXNzYW8sIDYsIDcpKQogIApgYGAKCk9uY2UgdGhlIGNvbHVtbiBhcmUgY3JlYXRlZCB3ZSB3aWxsIGFncm91cCBhbmQgc3VtIGFsbCB2YWx1ZXMgZXhwZW5kIGluIGVhY2ggbW9udGguCgpgYGB7cn0KZXhwZW5zZXNfYnlfbW9udGggPC0gZXhwZW5zZXNfYnlfbW9udGggJT4lCiAgZ3JvdXBfYnkoeWVhciwgbW9udGgpICU+JQogIGZpbHRlcih2YWxvckzDrXF1aWRvID49IDApICU+JQogIHN1bW1hcmlzZShleHBlbnNlID0gc3VtKHZhbG9yTMOtcXVpZG8pKQpgYGAKCkxldHMgc2VlIHRoZSBleHBlbnNlIGluIGEgZ3JhcGhpYy4KCgpgYGB7cn0KZXhwZW5zZXNfYnlfbW9udGggJT4lCiAgIHBsb3RfbHkoeD0gfm1vbnRoLCB5PSB+ZXhwZW5zZSx0eXBlPSAic2NhdHRlciIsIG1vZGU9ICJsaW5lcyttYXJrZXJzIikgJT4lCiAgbGF5b3V0KHRpdGxlPSJFeHBlbnNlcyBieSBtb250aHMiLCAKICAgICAgICAgeGF4aXM9bGlzdCh0aXRsZT0iTW9udGhzIiwgcmFuZ2U9IGMoMCwxMCkpLCAKICAgICAgICAgeWF4aXM9bGlzdCh0aXRsZT0iVmFsdWUgRXhwZW5kZWQgaW4gUlMiKSwgYmFybW9kZT0ic3RhY2siKQoKcGxvdChleHBlbnNlc19ieV9tb250aCwgeWVhcn5tb250aCAsIHR5cGU9Im1vbnRoIiAsIGJ0eT0ibCIgLCB4bGFiPSJ2YWx1ZSBvZiBhIiAsIHlsYWI9InZhbHVlIG9mIGIiICwgY29sPXJnYigwLjIsMC40LDAuMSwwLjcpICwgbHdkPTMgLCBwY2g9MTcgLCB5bGltPWMoMSw1KSApCmxpbmVzKGV4cGVuc2Ugfm1vbnRoICwgY29sPXJnYigwLjgsMC40LDAuMSwwLjcpICwgbHdkPTMgLCBwY2g9MTkgLCB0eXBlPSJtb250aCIgKQogCgpgYGAKYGBge3J9CmV4cGVuc2VzX2J5X21vbnRoICU+JSBuYS5vbWl0KCkgJT4lIApnZ3Bsb3QoYWVzKHggPSBtb250aCwgeSA9IGV4cGVuc2UsIGNvbG9yPXllYXIsIGdyb3VwID0geWVhcikpICsKICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWxzID0gY29tbWEpICsKICBnZW9tX3BvaW50KCkgKwogIGdlb21fbGluZSgpCiAgCmBgYAoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg==